add sanity check into compile_function

diff --git a/src/comp.c b/src/comp.c
index c2bd135495ebf54183d56d89507b4eab9a252c3f..8422c7d3431f7478a3a6764518eda76329f6e644 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -2698,6 +2698,7 @@ compile_function (Lisp_Object func)
       Lisp_Object block_name = HASH_KEY (ht, i);
       Lisp_Object block = HASH_VALUE (ht, i);
       Lisp_Object insns = FUNCALL1 (comp-block-insns, block);
+      eassert (!NILP (block) && !NILP (insns));
 
       comp.block = retrive_block (block_name);
       while (CONSP (insns))